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! defaulted to 


PAPMPMMMKMMM 


PAAARAHAMMM 


ad 
Nm 


REMOVE . COM 


' This command ere edure uses as input a data file (specified in P1 or 
YSSUPDATE: VMSKITBLD.DAT on the system disk). The data file is 

: read as input commands to be executed by the procedure. The format of each 

: record is defined in VMSKITBLD.COM. P2 specifies the category of files to 

: be removed from the system disk. This is one of the options specified by 

: the UVMS qualifier in the data file. If P2 is not specified, then the user 

! is prompted for the option cetegory. 


if p2 .nes. ‘’Y'’ then goto s2 
3 p — 3 


Pp 

write sys$output ‘"' 

write sys$Soutput ‘Due to unexpected happenings - the OPTION name" 
write sys$output ‘which you are trying to install has been lost’ 
inquire p2 “Would you please type that name in?" 

if P eqs. then goto si 

ON ERROR THEN GOTO ALL_DONE 
ON T GOT 


( 
= “SYS$SYSROOT: 
DEFEXE := "'SYS$SYSROOT:(SYSEXE]" 
DEFUPD. := S1S$SvSROOT:[SYSUPD" 


E SYSSOUTPUT - ; 

S command procedure removes entire options or sub-options 

E SYSSOUTPUT - 

the MicroVAS kit. Help a be obtained for any of the prompts'’ 
4 SYSSOUTPUT ‘by typing HELP." 

E 


‘Valid options and sub-options are:"' 


i Get data file name 


FILENAME = P1 
IF FILENAME .EQS. *"* THEN FILENAME = ‘‘SYSSUPDATE:VMSKITBLD.DAT"’ 
FILE = FILENAME 


Find the valid values for OPTIONS and SUB-OPTIONS from the data file. 


KINDA_VALID = “‘ALL BASE HELP, ]GNORE"’ 
VALID-OPT = 

PREV_VALID = ' 

PREV 3 ** 
OPEN7READ DATAF ‘FILENAME 

ON ERROR THEN GOTO CLOSE DATAF 

ON CONTROL_Y THEN GOTO CCOSE_DATAF 


VALID_REQUESTS: 


$ 
$ 
$ 
L 
$ 
$ 
$ 
$ 
% 
$ 
$ 
$ 
s 
‘ 
$ 
4 
$ 
% 
7 
$ 
t 
$ 
$ 
t 
$ 
4 
{ 
i 
$ 
$ 
$ 
$ 
$ 
h 
$ 


~ READ/E OF FILE=NORMAL EXIT DATAF RECORD 
-T,RECORD) .E€0S. ‘'S'’ THEN GOTO END VALID 
1,RECORD) NES. ‘'e’* THEN GOTO VALID REQUEST 


1 “NES. 
SEXTCFSLOC (Te RECORD) +3, FSLOC(''_“', RECORD) 3, RECORD) 
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D.OPTION,= VALID.OPTION + VALID + “," 
= 

E SyS$ouTPutT *’ * VALID 

+ 1,1,RECORD) 


Ta 
uw 


$ 
GOTO VALID 


CLOSE D 
ON ERROR. THEN GOTO ALL_DONE 
ON CON TROL J THEN GOTO” ALL _DONE 
VALID= “OPTION ="VALID_OPTION + KINDA_VALID 


T = T 
ive 0 TS = 


S 
SUB_OPT 10N = — 
SUB~OPT “RETURN := ALL_DONE 
REROVED_OP TIONS = ‘"* 
ENT_ 
iif stint not specified then get options List 
oP 


' 
' 
eT_ 


ND_VAL 


SOP PPP MHMHHOHHEHEREPEOOOOOEN 


Aa. Stes. *"*" THEN GOTO VALIDATE_OPTION 
SYSSOUTPU ” “8 

MOVED SPTTONS. a 

Syst REN OURLIE., SYSS0UTPUT “Option(s) previously removed: ‘',REMOVED_OPTIONS,'”’ 
SYSSOUTPUT ‘What Layered VMS option(s) do you want to remo 

— OPTIONS eee must be separated by commas, e.g... USER. ori. SYSP"’ 
OPTIONS = OPTIONS 

GOTO GET_OPTION 


Extract and validate an option, update options List 


‘ 

i 

i 
VALIDATE OPTION: 

RETURN := GET OPTION 
OPTION 4 OPTI oe ee 
LF FSLOC( some -NE. FSLENCOPTIONS) THEN OPTION = FSEXT(O,FSLOC('',"*,OPTIONS) ,OPTIONS) 


PPHAHPPAAPFAA PKS 


ION) 

£Q. F LENGING v3 ORT fy Bs ren GOTO BAD_OPTION 

$e TRAC T (TEMP H 
ACTLOrE PscotaTete i Pea. Y aie 2) 

ATEN THEN GOTO BAD_OPT!ON 

"WELP’ THEN GOTO HELP OPTION 


ee 8 ae me A ee 


BS 


OPT_RETURN := GET_OPTION 


ant YR 


see 
o™- 
— 
QS 
a 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSES | F 
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REMOVED _OPTIONS = SERVED. OPTIONS + ** ** + OPTION 
REMOVED—SUB_OPTIONS 


PAL 


te 


Remove check = entire option or not 


mn 
, ee 
ot 


OPTION: 
WRITE 7 Sypeoureyt “i 2 a 
ENT_OPT .EQS. Bs THEN GOTO HELP ENT_OPT 
ENT_OPT .EQS. THEN GOTO ME al 
ENT“OPT THEN GOTO CHECK_ SEARCH 
«NOT. ENT_OPT THEN GOTO GET _5UB_OPTION 


" OPT you Ou want to remove the entire ‘‘OPTION' option (y/n)"’ 
Teas. Pe. HEN GOTO ENT_OPTION 


PAPARMAPKRKES 
t 


S=3" os on 
of ie i es Bi | 
Sze 
ze 
m—2@ 
am 
Bor & 
i 


; If not entire option then get sub-options List 


GET_SUB_OPTION: 
RETURN : 


PRHARAKMS 


nfP TON 
“* THEN GOTO EX_SUB_OPT 


1 ONS 
ORITE. 'SYSSOUTPUT “Sub-option(s) previously removed: ‘',REMOVED_SUB_OPTIONS,"”’ 


*“Sub-options must be separated by commas, e.g., A,C.F*' 


T 
..__ THEN GOTO GET_SUB_OPTION 
"WELP’’ THEN GOTO HELP_SUB_OPTION 


xtract and validate sub-option, update sub-options List 


ie 
_5UB_OPT: 
“IF eit $ 2EQS. ***" THEN GOTO ALL_DONE 
$UB_OPT SUBOPTS 


10N = 
F FSLOC<"*,"* SUBOPTS) -NE. FSLEN(SUBOPTS) THEN SUB_OPTION = FSEXT(O,FSLOC('’,"", SUBOPTS) ,SUBOPTS) 


If 
neem SUB _OPTI 
TS = = SUBOPT S_ = SUB_OPTION = °’,”’ 

Sus OPT mM eee = OPT _RET 
Ay 48 NES, °*° THEN SUB_OPT_RETURN := GET_SUB_OPTIGw 
VALID_ “OPTION 

SUB_UPTI vicar vat ie. OPT) .EQ. 

AGTH(VALID_OPT) THEN GOTO BAD _SUB_OPTION 


T 
T ‘What sub-option(s) do you want removed for option "*,OPTION,"*."* 
S 


— ee 
~wT*> 


Rett PAO 


= 2 


$. 
TOTAL _OPT = OPTION UB_OPTION 
ONS = “REMOVED-SUB_OPTIONS + ‘ *’ + SUB_OPTION 


REMOVED _SuB_OP 


Is the SEARCH utility installed? 
CWE CK _ SEARCH: 
SRCW = FSSEARCH(*’ *DEFEME * SEARCH. EXE") 


PPELAPSAAFELA PCFKFHECAECES 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS8 | Ss 


REMOVE .COM; 1 14-JAN-1985 11:468:24.99 Page 4 


$! 

$ ! If search for search command successful, then use search command 

$ : on VASKITBLD.DAT to create smaller file containing List of files 

: to be deleted. 

SOPT_SRCH: 

$ IF SRCH .EQS. ‘"* THEN GOTO OPENS 

t ear puts LENAME ° UVMS S=ALL' mf TOTAL _oPT= 
/OUTPUT="DEFUPD*UVOPTION. sym 

' FILE = Yer apwe UVOPTION. DAT 

$ ! This is the main loop that 3 executed for each record in the data file. 

$ ! If search command used then FILE opened is UVOPTION.DAT. If search 

. command not used then FILE opened S VMSKITBLD.DAT. 

SOPEN_RECORD: 

% OPEN/READ DATAF ‘FILE 

$ ON ERROR ‘a B GOTO tLo SE_DATAF 

$ ON CONT ROL_Y THEN GOTO CCOSE_DATAF 

SRECORD_L 

t “READ/END OF _F eon Baht PATA we cone 

t IF PSEXTRACT(O, 1,RECORDY . aah HEN GOTO RECORD_LOOP 

$ IF FSEXTRACT( ;1.RECORD) “Fos: : THEN GOTO RECORD_LOOP 

Sony _uvnsi FSEXTRACT(O,1,RECORD) .EQS. °',"' THEN GOTO RECORD™ ~tooP 

2 UVMS s -FSEXTRACT (FSLOCATE ‘UvMse"" RECORD) +5, 132 ,RECORD) 

t IF UVAS .NES. THEN GOTO PARSE_UVMS 

4 WRITE SYSSOUTPUT ‘‘ZWA me = No OVMS qualifier on record: 

& WRITE SYSSOUTPUT ‘""'* RECO 

GOTO RECORD_LOOP 

SPARSE _U 


VMS : 
vv = FSEXTRACT(O CFSLOCATE (™**.UVMS)), UVMS) 
T_OPT TOtA AL_OPT = UVMS 


amen 
UVMS = FSEXTRA acho CFSLOCATE(*™_"'-UVMS)) UVvMS) 

IF FSLOCATE (UWA, VALID OPTION)” .NE. FSLENGTH(VALID_OPTION) THEN GOTO CHECK_OPTION 
WRITE SYSSOUTPIT ““EUAR ARRING - Invalid UVAS qualifier on record:' 

WRITE SYSSOUTPUT '"""* 'RECORD'’ 

GOTO RECORD_LOOP 


Check if this file is in the option we are deleting. 


=x 
Peasece 
o 


K_OPTION: 
“IF SAVESET_NAME .EQS. “‘ALL'’ THEN GOTO GET_NAME 
IF SAVESET“NAME .NES. TOTAL_OPT THEN GOTO-RECORD_LOOP 


Get the name from the current record. (The name is alvays the first field 
in the record, and doesn't have a keyword associated with it.) 


oe 
Paste tt ee 
= 


NAME : 
NAME = FSEXTRACT(O,FSLOCATE(’*,’*, RECORD) ,RECORD) 


PAPRAARPAARAPROAPHPAPRHAHGHHPHHHSE 


' 
Get the operation. 
GET_OPERATION: 


POM 


PRHAAAM 


BOSS rervrwrne 


PROM 


S 
29 


NO_DATAF 


z 
m 
os 
Mind 
g 
— 
_— 
ar 3 
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OPERATION = FSEXTRACT(FSLOCATE("‘OP="", RECORD) +3,132,RECORD) 
If OPERATION .EQS. °"" THEN GOTO L 
OPERATION = FSEXTRACT(O,FSLOCATE(’',’', OPERATION) ,OPERATION) 


GOTO "OPERATION 


SOURCE _DEFAULT = "'['' + "'**NAME''''' + ‘'9"" 


G: 
IF FSSEARCH('"* *DEFROOT'' "SOURCE DEFAULT 0» (NAME ***) -EQS. *"’ THEN GOTO RECORD_LOOP 


tir ee 3 Maes 7 OM ey DEF AULT* "NAM 


IF NAME .EQS, ' 
GOTO RECORD sCooP 


WRITE SYSS$OUTPUT 
GOTO ALL_DONE 


HELP_ENT OPT: 


WRITE. SYSSOUTPUT 
PU 


<£ 
@D 
-_ 
~ 
mn 
“ 
— 
ae 
_ 
_ 


$S5—-S5S55z2 055 


—<c~ < 


SYS 
I VALID = 


GS552=35 


e° 
ARLET.OLB'” THEN LIBR/ CREATE *DEFROOT* "SOURCE _DEFAULT* "NAME ' 


** Unab!2 to open data parameter file." 


“Typing Y indicates you want the entire cption” 
‘to be removed. Typing N indicates you want only"’ 
“portions of the option to be removed. The pret” 
‘tor these sub_options follows if you type 


"You specified an invalid option in: ‘*,SAVE_OPTIONS,*”' 


"The valid options are: 


TPUT 
VALID_OPTION = KINDA_VALID 


"TEMP 


D a9, sw ETNEN GOTO BACK 


"Options must be separated by commas."’ 


SS 


1 
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HELP 


PHAAAAAAAAKAKACAM 


PRAAHAHAAAAYS 


=x 
m 
i 
v 


BD ie. 
P 


PAMAMAARHAPHAAAHA PAPA 


WRITE SYSSOUTPUT "You specified an invalid sub-option in: ‘'',SAVE_SUBOPTS,’”’ 


WRITE SYSSOUTPUT ‘*" 
WRITE SYSSOUTPUT "'The valid sub-options for ‘',OPTION,"’ are: 
WRITE SYSSOUTPUT © 
IF SRCH .NES. °"* THEN GOTO SRCH_SUB_OPT_HELP 
OPEN/ READ DATAF ro tine e 
i font OR THEN GOTO CLOS 
ONTROL_Y THEN GOTO ECOSE. *DATAF 


AD/END_OF_F LE=HELP FINISH DATAF RECORD 
FSEXTRACT(O,1,RECORD) .NES. ‘'!'' THEN GOTO HELP_FINISH 
FSEXTRACT (1 +1 REE ORD} “NES. ‘'®"’ THEN GOTO HELP~READ 

ID = FSEXTCFSLOC(''!® RECORD) +3,F$LOC(''."', RECORD) =3,RECORD) 
VALID .£Q0S. OPTION THEN WRITE SYSSOUTPUT™” ", RECORD 

GOTO HELP_READ 


H: 
a 93 DATAF 
tants THEN GOTO ALL_DONE 
0 HELP-CONT HEN GOTO ALL_DONE 


e 
x 
m 
= 
v 
1 

y 
Se 
a 
_— 
2 


= smeme > ‘ie Lal + OPT 10N + — + teem 


A ee “FILENAME "STRING 


WRITE SYSSOUTPUT me 

of i A sv SSOurput ““Sub-options must be separated by commas. 
GOTO ‘RETURN 

iL EXIT: 

“CLOSE DATAF 

ON ERROR _ GOTO ALL_DONE 

ON CONTROL_Y THEN GOTO ALL DONE 


IF TOTAL_OPT .NES. (OPT PTION + *"'' + SUB_LOPTION) - 
THEN N TOTAL_OPT = OP™ION 


WRITE AS ya ba ‘eeeee =", TOTAL_OPT,"* REMOVED eeee’’ 
GOTO *SUB_OPT_RETURN 


CLOSE _DATAF : 


CLOSE DATAF 


ALL _DONE : 
IF FSSEARCH(""* *DEFUPD* UVOPTION.DAT’') .NES. ‘"’ THEN DELETE ‘DEFUPD'UVOPTION.DAT;* 


a DEFAULT "DEFDIR 


dei AK-EF71A-SE ate OD 
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